package body PortAudioAda.Linux_Alsa is

   -------------------------------
   -- PaAlsa_SetLibraryPathName --
   -------------------------------

   procedure PaAlsa_SetLibraryPathName (pathName : String) is
      procedure Internal (p : IC.char_array);
      pragma Import (C, Internal, "PaAlsa_SetLibraryPathName");

      newPathName : constant access IC.char_array :=
                      new IC.char_array'(IC.To_C (pathName, True));
      pragma Convention (C, newPathName);
   begin
      Internal (newPathName.all);
   end PaAlsa_SetLibraryPathName;

end PortAudioAda.Linux_Alsa;
